home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_IIMIMEMN.ASP < prev    next >
Encoding:
Text File  |  1999-06-03  |  3.5 KB  |  159 lines

  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8. <%
  9. dim quote
  10. quote = chr(34)
  11. %>
  12. <!--#include file="iimimehd.str"-->
  13. <!--#include file="iisetfnt.inc"-->
  14. <HTML>
  15. <HEAD>
  16. <TITLE></TITLE>
  17. </HEAD>
  18.  
  19. <BODY BGCOLOR="<%= Session("BGCOLOR") %>" LINK="#000000" VLINK="#000000" TOPMARGIN=10 TEXT="#000000" onLoad="loadList();loadHelp();">
  20. <FORM name="hiddenform">
  21.     <INPUT TYPE="hidden" NAME="index" VALUE=-1>
  22. </FORM>
  23. <FORM NAME="userform">
  24.  
  25. <P>
  26. <TABLE BORDER=0 BGCOLOR="<%= Session("BGCOLOR") %>" WIDTH=99%  CELLPADDING=0 CELLSPACING = 0>
  27.     <TR><TD>
  28.     <%= sFont("","","",True) %>
  29.     <%= L_REGTYPES_TEXT %>
  30.     </TD></TR>
  31. </TABLE>
  32.  
  33. </FORM>
  34.  
  35. <SCRIPT LANGUAGE="JavaScript">
  36.     <!--#include file="iijsfuncs.inc"-->
  37.     <!--#include file="iijsls.inc"-->
  38.     function loadList(){
  39.         parent.list.location.href = "iimimels.asp";
  40.     }
  41.     
  42.     function loadHelp(){
  43.         top.title.Global.helpFileName="iipxrdir";
  44.     }
  45.  
  46.     function moveItem(dir){    
  47.     }
  48.  
  49.     function buildListForm(){
  50.         numrows = 0;
  51.         for (var i = 0; i < cachedList.length; i++) {
  52.             if ((!cachedList[i].deleted) && ((cachedList[i].ext + cachedList[i].app) != "")){
  53.                 numrows = numrows + 1;
  54.             }
  55.         }
  56.         qstr = "numrows="+numrows;
  57.         qstr = qstr+"&cols=ext&cols=app"
  58.  
  59.         parent.parent.hlist.location.href = "iihdn.asp?"+qstr;
  60.         <% 'the list values will be grabbed by the hiddenlistform script... %>
  61.     }
  62.  
  63.  
  64.     function SetListVals(){
  65.         listForm = parent.parent.hlist.document.hiddenlistform;    
  66.         j = 0;
  67.         for (var i = 0; i < cachedList.length; i++) {
  68.             if ((!cachedList[i].deleted) && ((cachedList[i].ext + cachedList[i].app) != "")){
  69.                 listForm.elements[j++].value = cachedList[i].ext;
  70.                 listForm.elements[j++].value = cachedList[i].app;
  71.                 cachedList[i].updated = false;
  72.             }
  73.         }
  74.     }
  75.  
  76.     openedby = top.opener.location.href;
  77.     if (openedby.indexOf("comp") > -1){    
  78.         top.poptools.toolFunc.mainframe = top.opener.top.opener.top;
  79.         mf = top.opener.top.opener.top;
  80.     }
  81.     else
  82.     {
  83.         mf = top.opener.top;
  84.     }
  85.     listFunc = new listFuncs("ext","",mf);
  86.  
  87.     // Override the addItem method of the listFunc object
  88.     function addItemOverload()
  89.     {
  90.         var i=cachedList.length;
  91.         if( this.sel > -1 )
  92.         {
  93.             // Validate the current selected item
  94.             if( cachedList[this.sel].ext == "" ||
  95.                 cachedList[this.sel].app == "" )
  96.             {
  97.                 alert( "<%= L_EMPTYFIELDERROR_TEXT %>" );
  98.                 return;
  99.             }
  100.         }
  101.  
  102.         // Add the new item
  103.         listFunc.noupdate = true;        
  104.         cachedList[i]=new listObj(i);
  105.         cachedList[i].newitem=true;
  106.         cachedList[i].updated=true;
  107.         listFunc.sel=i;
  108.  
  109.         loadList();
  110.     }
  111.     listFunc.addItem = addItemOverload;
  112.  
  113.     function listObj(i,e,a){
  114.         this.id = i;
  115.         this.deleted = false;
  116.         this.newitem = false;
  117.         this.updated = false;
  118.         
  119.         this.ext = initParam(e,"");
  120.         this.app=initParam(a,"");
  121.     }
  122.     
  123. cachedList = new Array();
  124.  
  125. <%
  126. On Error Resume Next
  127.  
  128. Dim path, currentobj, aMimeMap, Map, i, mapsize, mext, mtype
  129.  
  130. path = Session("dpath")
  131. Session("path") = path
  132. Session("SpecObj") = path & "/MimeMap"
  133. if Session("vtype") = "comp" then
  134.     Set currentobj=GetObject(path & "/MimeMap")
  135. else
  136.     Set currentobj=GetObject(path)
  137. end if 
  138. Session("SpecProps")=""
  139.  
  140. i = 0
  141. aMimeMap = currentobj.GetEx("MimeMap")
  142.  
  143. for each Map in aMimeMap
  144.     mext = Map.Extension
  145.     mtype = Map.MimeType
  146.     if mext <> "" and mtype <> "" then
  147.     %>cachedList[<%= i %>] = new listObj(<%= i %>,"<%= mext %>","<%= mtype %>");<%
  148.     i = i+1
  149.     end if
  150. Next
  151. %>
  152. </SCRIPT>
  153.  
  154.  
  155.  
  156. </BODY>
  157. </HTML>
  158.  
  159. <% end if %>